home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / bdansv16.lha / PFiles / BaudAnsi / BaudAnsi.rexx
OS/2 REXX Batch file  |  1996-05-19  |  4KB  |  117 lines
  1. /***************************************************************************/
  2. /*                                                                         */
  3. /*                    BaudAnsi.rexx V1.6 (19.05.1996)                      */
  4. /*    Copyright (C)1996 by Campino - All Rights reserved - Frei nutzbar    */
  5. /*         Irgendwelche Ă„nderungen in diesem File sind ILLEGAL !!!         */
  6. /*                     Bitte lese auch das Guide !!                        */
  7. /*                                                                         */
  8. /*  Amiga Project BBS-Ehingen: 24h online unter: 07391/3213 (V.34+V.FC)    */
  9. /*                                                                         */
  10. /***************************************************************************/
  11.  
  12. options results
  13. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  14.         IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  15.                 EXIT(10)
  16. gu=getuser
  17. gu 1311992
  18. Path=result
  19. open(i,path||"BaudAnsi.rexx","R")
  20.         chk=seek(i,0,"E")
  21. close(i)
  22. if chk>4004+10 | chk<4004-10
  23.  then do
  24.    transmit x2c("196631196E3150726F6772616D20636F64652077617320616C74657265642E2053657474696E67206D6F6E69746F72206672657175656E637920746F20323030487A21197731")
  25.     do a=1 to 100
  26.         transmit x2c("196231197A30196631")
  27.         transmit x2c("196231197A37196631")
  28.     end
  29.     sendstring "a1w99999}"
  30.     exit
  31. end
  32. Zeit=Time()
  33. Datum=Date()
  34. Tag=Date('w') 
  35. signal on error
  36. signal on ioerr
  37. signal on syntax
  38. signal on halt
  39. bbsidentify sysop
  40. sysop=result
  41. bufferflush
  42. tr=transmit
  43. ss=sendstring
  44. gu 23
  45. port=result
  46. gu 23007346
  47. tmpp=result
  48. gu 1200018
  49. bps=result*10
  50. gu 1200064
  51. callno=result
  52. if callno = -1 then call skiplog
  53. Version="1.6"
  54. SysOp.Mail="Hallo c4u1"||SYSOP||"u0c7 ! n2Es ist ein Fehler in BaudAnsi V"||Version||" aufgetreten :( n1Schau mal bitte in die Datei c1u1o1'SysData:Log/BaudAnsi.log'c7u0o0 fuer weitere Infos !n2Thx ! Campino (Coder von BaudAnsi)"
  55. FName="BaudAnsi.rexx"
  56. changewhere "BaudAnsi V1.6"
  57. if bps>64000 | bps<9600
  58.  then exit
  59. tr 'f1'
  60. tr ''
  61. tr 'k1BaudAnsi V'||Version||' (C)1996 by Campinok0'
  62. tr ''
  63. tr 'Good V46}, c2V1300072}c7 ! You have ...'
  64. bps=path||"Ansis/"||bps||".ansi"
  65. sendfile bps
  66. tr ''
  67. tr '                              c4... to this Board !c7'
  68. tr ''
  69. tr "     Account Nr.: c2V1200012} c1/c7 Datum: c2"Tag", "Datum" c1/c7 Uhrzeit: c2"Zeit"c7"
  70. tr '             Letzter Anrufer war: c2V50}c7 c1/c7 Du bist auf Port: c2'||Port||''
  71. tr ''
  72. bufferflush
  73. exit
  74. skiplog:
  75. tr ''
  76. tr 'Localer Login - BaudAnsi wird nicht gestartet.'
  77. tr ''
  78. bufferflush
  79. exit
  80. ERROR:;IOERR:;SYNTAX:;HALT:
  81. tr ''
  82. tr ''
  83. tr 'c1********************************************************************************c7'
  84. err="1Fehler in Zeile: "sigl "Code:" errortext(rc) "Filename: "||FName||" Version: V"||Version||""
  85. tr ''
  86. tr "n1c1 "err
  87. tr ''
  88. tr 'c1Wichtig:'
  89. tr 'c2Bitte informiere den SysOp ('||SYSOP||') ueber diesen Fehler !'
  90. tr 'Teile Ihm bitte die c3Zeilec2, c3Codec2, c3Filenamec2 und die c3Versionc2 mit !'
  91. tr 'Vielen Herzlichen Dank fuer Deine Muehe !!c7'
  92. tr ''
  93. if exists("SysData:Log/BaudAnsi.log") then open(ba,"SysData:log/BaudAnsi.log","A")
  94.         else open(ba,"SysData:log/BaudAnsi.log","W")
  95. writeln(ba,"BaudAnsi Error: "Err)
  96. close(ba)
  97. open(SysOpMail,tmpp||port"BaudAnsiSysMail","W")
  98. writeln(SysOpMail,SysOp.Mail)
  99. close(SysOpMail)
  100. cleareditor
  101. setmailsubj "BaudAnsi V"||Version||""
  102. loadeditor tmpp||port"BaudAnsiSysMail"
  103. writemail 1
  104. end
  105. call delete(tmpp||port'BaudAnsiSysMail')
  106. tr ''
  107. tr 'c1********************************************************************************c7'
  108. tr 'c6Druecke irgendeine Taste !c7 g0'
  109. tr ''
  110. exit
  111.  
  112. /***************************************************************************/
  113. /*                                                                         */
  114. /*                               The End.                                  */
  115. /*                                                                         */
  116. /***************************************************************************/
  117.